home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / GRAPHICS / UVE138.ZIP / EXAMPLES.ZIP / 2ND.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-30  |  409 b   |  22 lines
  1. {$A+,B-,D+,E+,F-,G+,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
  2. {$M 16384,0,655360}
  3.  
  4. {
  5. 2ND.PAS
  6. Sample program of simple sprite loading.
  7. (16 colors only to avoid palette loading!)
  8. Cherry sprite courtesy of Cherry Mania (c) InterAction software
  9. }
  10.  
  11. uses     crt,uve32;
  12.  
  13. begin
  14.     ia_inituve;
  15.     ia_loadspr('cherry.uvs',1);
  16.     ia_powerup;
  17.     spr[1].n:=1;
  18.     repeat
  19.         ia_doframe;
  20.     until keypressed;
  21.     ia_shutdown;
  22. end.